home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_ScrollBar.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  11.1 KB  |  290 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_ScrollBar.c
  5. * RCS:          $Header: wc_ScrollBar.c,v 1.3 91/03/14 03:15:08 mayer Exp $
  6. * Description:  XM_SCROLL_BAR_WIDGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Sat Oct 28 04:35:49 1989
  9. * Modified:     Thu Oct  3 22:20:19 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_ScrollBar.c,v 1.3 91/03/14 03:15:08 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include <Xm/ScrollBar.h>
  47. #include "winterp.h"
  48. #include "user_prefs.h"
  49. #include "xlisp/xlisp.h"
  50. #include "w_funtab.h"
  51.  
  52.  
  53. extern Widget Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(); /* w_classes.c */
  54.  
  55.  
  56. /******************************************************************************
  57.  * typedef struct
  58.  * {
  59.  *    int reason;
  60.  *    XEvent * event;
  61.  *    int value;                 -- new slider location value
  62.  *    int pixel;                 -- this is a stupid name: contains the coord of the XmNto{Top,Bottom}Callback
  63.  * } XmScrollBarCallbackStruct;
  64.  ******************************************************************************/
  65. static LVAL s_CALLBACK_PIXEL;    /* initialized below in Wc_ScrollBar_Init() */
  66. static void Lexical_Bindings_For_XmScrollBarCallbackStruct(bindings_list, lexical_env, cd, o_widget)
  67.      LVAL bindings_list;    /* a list of symbols to which values from XmScrollBarCallbackStruct are bound */
  68.      LVAL lexical_env;        
  69.      XmScrollBarCallbackStruct* cd;
  70.      LVAL o_widget;        /* XLTYPE_WIDGETOBJ */
  71. {
  72.   extern LVAL s_CALLBACK_WIDGET, s_CALLBACK_REASON, s_CALLBACK_XEVENT, s_CALLBACK_VALUE; /* w_callbacks.c */
  73.   extern LVAL Wcb_Get_Callback_Reason_Symbol();    /* w_callbacks.c */
  74.   register LVAL s_bindname;
  75.  
  76.   for ( ; consp(bindings_list); bindings_list = cdr(bindings_list)) {
  77.  
  78.     s_bindname = car(bindings_list);
  79.  
  80.     if (s_bindname == s_CALLBACK_WIDGET) {
  81.       xlpbind(s_bindname, o_widget, lexical_env);
  82.     }
  83.     else if (s_bindname == s_CALLBACK_REASON) {
  84.       xlpbind(s_bindname, Wcb_Get_Callback_Reason_Symbol(cd->reason), lexical_env);
  85.     }
  86.     else if (s_bindname == s_CALLBACK_XEVENT) {
  87.       xlpbind(s_bindname, (cd->event) ? cv_xevent(cd->event) : NIL, lexical_env);
  88.     }
  89.     else if (s_bindname == s_CALLBACK_VALUE) {
  90.       xlpbind(s_bindname, cvfixnum((FIXTYPE) cd->value), lexical_env);
  91.     }
  92.     else if (s_bindname == s_CALLBACK_PIXEL) {
  93.       xlpbind(s_bindname, cvfixnum((FIXTYPE) cd->pixel), lexical_env);
  94.     }
  95.     else {
  96.       extern char temptext[];    /* from winterp.c */
  97.       sprintf(temptext,
  98.           "Unknown binding name in XmScrollBarCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s %s].",
  99.           (char*) getstring(getpname(s_CALLBACK_WIDGET)),
  100.           (char*) getstring(getpname(s_CALLBACK_REASON)),
  101.           (char*) getstring(getpname(s_CALLBACK_XEVENT)),
  102.           (char*) getstring(getpname(s_CALLBACK_VALUE)),
  103.           (char*) getstring(getpname(s_CALLBACK_PIXEL)));
  104.       xlerror(temptext, s_bindname);
  105.     }
  106.   }
  107. }
  108.  
  109.  
  110. /******************************************************************************
  111.  * This is called indirectly via XtAddCallback() for callbacks returning
  112.  * an XmScrollBarCallbackStruct as call_data. 
  113.  ******************************************************************************/
  114. static void XmScrollBarCallbackStruct_Callbackproc(widget, client_data, call_data)
  115.      Widget    widget;
  116.      XtPointer client_data;
  117.      XtPointer call_data;
  118. {
  119.   extern void Wcb_Meta_Callbackproc(); /* w_callbacks.c */
  120.  
  121.   Wcb_Meta_Callbackproc(client_data, call_data,
  122.             Lexical_Bindings_For_XmScrollBarCallbackStruct,
  123.             NULL);
  124. }
  125.  
  126.  
  127. /******************************************************************************
  128.  * Same as WIDGET_CLASS's :add_callback method except that this understands
  129.  * how to get values from the XmScrollBarCallbackStruct.
  130.  * Specifying one or more of the following symbols in the callback bindings 
  131.  * list will bind that symbol's value in the lexical environment of the callback:
  132.  * CALLBACK_WIDGET
  133.  * CALLBACK_REASON
  134.  * CALLBACK_XEVENT
  135.  * CALLBACK_VALUE
  136.  * CALLBACK_PIXEL
  137.  ******************************************************************************/
  138. LVAL Xm_Scroll_Bar_Widget_Class_Method_ADD_CALLBACK()
  139. {
  140.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  141.  
  142.   return (Wcb_Meta_Method_Add_Callback(XmScrollBarCallbackStruct_Callbackproc, FALSE));
  143. }
  144.  
  145.  
  146. /******************************************************************************
  147.  * Same as WIDGET_CLASS's :set_callback method except that this understands
  148.  * how to get values from the XmScrollBarCallbackStruct.
  149.  * Specifying one or more of the following symbols in the callback bindings 
  150.  * list will bind that symbol's value in the lexical environment of the callback:
  151.  * CALLBACK_WIDGET
  152.  * CALLBACK_REASON
  153.  * CALLBACK_XEVENT
  154.  * CALLBACK_VALUE
  155.  * CALLBACK_PIXEL
  156.  ******************************************************************************/
  157. LVAL Xm_Scroll_Bar_Widget_Class_Method_SET_CALLBACK()
  158. {
  159.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  160.  
  161.   return (Wcb_Meta_Method_Add_Callback(XmScrollBarCallbackStruct_Callbackproc, TRUE));
  162. }
  163.  
  164.  
  165. /******************************************************************************
  166.  * (send <scrollbar_widget> :GET_VALUE) 
  167.  * ==> returns a list (<value> <slider_size> <increment> <page_increment>)
  168.  * all of which are FIXNUMs representing  the values of resources
  169.  * :XMN_VALUE, :XMN_SLIDER_SIZE, :XMN_INCREMENT, and :XMN_PAGE_INCREMENT
  170.  * respectively.
  171.  *
  172.  * Note that I couldn't call this method :GET_VALUES because it would override
  173.  * method :GET_VALUES on WIDGET_CLASS.
  174.  *
  175.  * void XmScrollBarGetValues (w, value, slider_size, increment, page_increment)
  176.  *    Widget w;
  177.  *    int *value;
  178.  *    int *slider_size;
  179.  *    int *increment;
  180.  *    int *page_increment;
  181.  ******************************************************************************/
  182. LVAL Xm_Scroll_Bar_Widget_Class_Method_GET_VALUE()
  183. {
  184.   LVAL self, result;
  185.   Widget widget_id;
  186.   int value, slider_size, increment, page_increment;
  187.   
  188.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  189.   xllastarg();
  190.  
  191.   XmScrollBarGetValues(widget_id, &value, &slider_size, &increment, &page_increment);
  192.  
  193.   xlsave1(result);        /* protect from gc */
  194.   result = cons(cvfixnum((FIXTYPE) page_increment), NIL);
  195.   result = cons(cvfixnum((FIXTYPE) increment), result);
  196.   result = cons(cvfixnum((FIXTYPE) slider_size), result);
  197.   result = cons(cvfixnum((FIXTYPE) value), result);
  198.   xlpop();
  199.   return (result);
  200. }
  201.  
  202.  
  203. /******************************************************************************
  204.  * (send <scrollbar_widget> :SET_VALUE <value> <slider_size> 
  205.  *                                     [[[<increment>] <page_increment>] <notify>])
  206.  * ==> returns <scrollbar_widget>.
  207.  * <value> is a fixnum specifying the slider position
  208.  *    (same as setting the resource :XMN_VALUE)
  209.  * <slider_size> is a fixnum specifying the size of the slider.
  210.  *    (same as setting resource :XMN_SLIDER_SIZE)
  211.  * <increment> is an optional fixnum specifying the amount of button increment
  212.  *    and decrement. (same as setting resource :XMN_INCREMENT).
  213.  * <page_increment> is an optional fixnum specifying the page increment size.
  214.  *    (same as setting resource :XMN_INCREMENT).
  215.  * <notify> is an optional Boolean, if NIL, the value changed callback will not
  216.  *     be activated, else it will.
  217.  * 
  218.  * Note that I couldn't call this method :SET_VALUES because it would override
  219.  * method :SET_VALUES on WIDGET_CLASS.
  220.  *
  221.  * void XmScrollBarSetValues (w, value, slider_size, 
  222.  *                            increment, page_increment, notify)
  223.  *        Widget w;
  224.  *        int value;
  225.  *        int slider_size;
  226.  *        int increment;
  227.  *        int page_increment;
  228.  *        Boolean notify;
  229.  ******************************************************************************/
  230. LVAL Xm_Scroll_Bar_Widget_Class_Method_SET_VALUE()
  231. {
  232.   LVAL self;
  233.   Widget widget_id;
  234.   int value, slider_size, increment, page_increment;
  235.   Boolean notify;
  236.  
  237.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  238.   value = (int) getfixnum(xlgafixnum());
  239.   slider_size = (int) getfixnum(xlgafixnum());
  240.   if (moreargs()) {
  241.     increment = (int) getfixnum(xlgafixnum());
  242.     if (moreargs()) {
  243.       page_increment = (int) getfixnum(xlgafixnum());
  244.       if (moreargs())
  245.     notify = (xlgetarg() == NIL) ? FALSE : TRUE;
  246.       else
  247.     notify = FALSE;
  248.     }
  249.     else 
  250.       page_increment = notify = FALSE;
  251.   }
  252.   else 
  253.     increment = page_increment = notify = FALSE;
  254.   xllastarg();
  255.  
  256.   XmScrollBarSetValues(widget_id, value, slider_size,
  257.                increment, page_increment, notify);
  258.  
  259.   return (self);
  260. }
  261.  
  262.  
  263. /******************************************************************************
  264.  *
  265.  ******************************************************************************/
  266. Wc_ScrollBar_Init()
  267. {
  268.   LVAL o_XM_SCROLL_BAR_WIDGET_CLASS;
  269.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  270.   extern      xladdmsg();    /* from xlobj.c */
  271.  
  272.   o_XM_SCROLL_BAR_WIDGET_CLASS =
  273.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_SCROLL_BAR_WIDGET_CLASS",
  274.                      xmScrollBarWidgetClass);
  275.  
  276.   xladdmsg(o_XM_SCROLL_BAR_WIDGET_CLASS, ":ADD_CALLBACK",
  277.            FTAB_Xm_Scroll_Bar_Widget_Class_Method_ADD_CALLBACK);
  278.  
  279.   xladdmsg(o_XM_SCROLL_BAR_WIDGET_CLASS, ":SET_CALLBACK",
  280.            FTAB_Xm_Scroll_Bar_Widget_Class_Method_SET_CALLBACK);
  281.  
  282.   xladdmsg(o_XM_SCROLL_BAR_WIDGET_CLASS, ":SET_VALUE",
  283.            FTAB_Xm_Scroll_Bar_Widget_Class_Method_SET_VALUE);
  284.  
  285.   xladdmsg(o_XM_SCROLL_BAR_WIDGET_CLASS, ":GET_VALUE",
  286.            FTAB_Xm_Scroll_Bar_Widget_Class_Method_GET_VALUE);
  287.  
  288.   s_CALLBACK_PIXEL = xlenter("CALLBACK_PIXEL");
  289. }
  290.